home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / SecalDemo / Inc / libcalls / potgo.inc < prev    next >
Encoding:
Text File  |  1997-06-11  |  405 b   |  22 lines
  1. pattern AllocPotBits(_bits) is
  2.     push a6;
  3.     d0.l:=_bits;
  4.     a6:=PotgoBase; jsr [a6-6];
  5.     pop a6;
  6. endp;                                                            # ALLOCPOTBITS
  7.  
  8. pattern FreePotBits(_bits) is
  9.     push a6;
  10.     d0.l:=_bits;
  11.     a6:=PotgoBase; jsr [a6-12];
  12.     pop a6;
  13. endp;                                                            # FREEPOTBITS
  14.  
  15. pattern WritePotgo(_word,_mask) is
  16.     push a6;
  17.     safe d0.l:=_word; d1.l:=_mask;;
  18.     a6:=PotgoBase; jsr [a6-18];
  19.     pop a6;
  20. endp;                                                            # WRITEPOTGO
  21.  
  22.